library(plotly)
theta_labels= c('Batting Average', 'On-base percentage','On-base Plus Slugging Plus','Slugging','Hits')
fig <- plot_ly(
type = 'scatterpolar',
fill = 'toself'
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2019_norm[1,4:8])),
theta = theta_labels,
fillcolor = 'rgba(255, 0, 0, 0.3)',
line = list(color = 'rgba(255, 0, 0, 0.5)'),
hoverinfo='text',
hovertext = ~paste("2019","<br>Name:",df_2019$Name[1], "<br>Stat:",colnames(df_2023[4:8]), c(df_2019[1,4:8])),
name = '2019'
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2023_norm[1,4:8])),
theta = theta_labels,
fillcolor = 'rgba(0, 0, 255, 0.3)',
line = list(color = 'rgba(0, 0, 255, 0.5)'),
hoverinfo='text',
hovertext= ~paste("2023","<br>Name:",df_2023$Name[1],"<br>Stat:",colnames(df_2023[4:8]), c(df_2023[1,4:8])),
name = '2023'
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2019_norm[2,4:8])),
theta = theta_labels,
fillcolor = 'rgba(255, 0, 0, 0.3)',
line = list(color = 'rgba(255, 0, 0, 0.5)'),
hoverinfo='text',
hovertext= ~paste("2019","<br>Name:",df_2019$Name[2],"<br>Stat:",colnames(df_2019[4:8]), c(df_2019[2,4:8])),
name = '2019',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2023_norm[2,4:8])),
theta = theta_labels,
fillcolor = 'rgba(0, 0, 255, 0.3)',
line = list(color = 'rgba(0, 0, 255, 0.5)'),
hoverinfo='text',
hovertext=paste("2023","<br>Name:",df_2023$Name[2],"<br>Stat:",colnames(df_2023[4:8]), c(df_2023[2,4:8])),
name = '2023',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2019_norm[3,4:8])),
theta = theta_labels,
fillcolor = 'rgba(255, 0, 0, 0.3)',
line = list(color = 'rgba(255, 0, 0, 0.5)'),
hoverinfo='text',
hovertext=paste("2019","<br>Name:",df_2019$Name[3],"<br>Stat:",colnames(df_2019[4:8]), c(df_2019[3,4:8])),
name = '2019',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2023_norm[3,4:8])),
theta = theta_labels,
fillcolor = 'rgba(0, 0, 255, 0.3)',
line = list(color = 'rgba(0, 0, 255, 0.5)'),
hoverinfo='text',
hovertext=paste("2023","<br>Name:",df_2023$Name[3],"<br>Stat:",colnames(df_2023[4:8]),c(df_2023[3,4:8])),
name = '2023',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2019_norm[4,4:8])),
theta = theta_labels,
fillcolor = 'rgba(255, 0, 0, 0.3)',
line = list(color = 'rgba(255, 0, 0, 0.5)'),
hoverinfo='text',
hovertext=paste("2019","<br>Name:",df_2019$Name[4],"<br>Stat:",colnames(df_2019[4:8]), c(df_2019[4,4:8])),
name = '2019',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2023_norm[4,4:8])),
theta = theta_labels,
fillcolor = 'rgba(0, 0, 255, 0.3)',
line = list(color = 'rgba(0, 0, 255, 0.5)'),
hoverinfo='text',
hovertext=paste("2023","<br>Name:",df_2023$Name[4],"<br>Stat:",colnames(df_2023[4:8]), c(df_2023[4,4:8])),
name = '2023',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2019_norm[5,4:8])),
theta = theta_labels,
fillcolor = 'rgba(255, 0, 0, 0.3)',
line = list(color = 'rgba(255, 0, 0, 0.5)'),
hoverinfo='text',
hovertext=paste("2019","<br>Name:",df_2019$Name[5],"<br>Stat:",colnames(df_2019[4:8]), c(df_2019[5,4:8])),
name = '2019',
visible=F
)
fig <- fig %>%
add_trace(
r = unlist(as.numeric(df_2023_norm[5,4:8])),
theta = theta_labels,
fillcolor = 'rgba(0, 0, 255, 0.3)',
line = list(color = 'rgba(0, 0, 255, 0.5)'),
hoverinfo='text',
hovertext=paste("2023","<br>Name:",df_2023$Name[5],"<br>Stat:",colnames(df_2023[4:8]),c(df_2023[5,4:8])),
name = '2023',
visible=F
)
fig <- fig %>%
layout(
polar = list(
radialaxis = list(
range = c(0,1)
)
)
)